home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / TUTORIAL.MAC < prev    next >
Text File  |  1993-11-11  |  6KB  |  101 lines
  1. \X NEW_TUBE_BOX\CALL TUBE_BOX\LINE 0,145,Q,720,1,BF\IF R>145\LINE Q,145,1023,R,1,BF\ENDIF\+
  2. \LINE 0,720,569,768,1,BF\LINE S,145,1023,720,1,BF\LINE Q,T,S,720,1,BF\RETURN
  3. \X TUBE_BOX\X LOOP2\LINE Q,R,Q,T,U/2+16\LINE Q,R,S,R,U/2+16\LINE Q,T,S,T,30-U/2\LINE S,R,S,T,30-U/2\+
  4. \SUB 1 FROM Q\SUB 1 FROM R\ADD 1 TO S\ADD 1 TO T\ADD 1 TO U\IF U<TUBE_COLORS\JUMP LOOP2\ENDIF\RETURN
  5. \X INDENTED_BOX\X LOOP3\LINE Q,R,Q,T,30-U/2\LINE Q,R,S,R,30-U/2\LINE Q,T,S,T,U/2+16\LINE S,R,S,T,U/2+16\+
  6. \SUB 1 FROM Q\SUB 1 FROM R\ADD 1 TO S\ADD 1 TO T\ADD 1 TO U\IF U<23\JUMP LOOP3\ENDIF
  7. \RETURN
  8. \X PLAYSOUND\MOVE '162019PW' TO FONT_FLNM\CALLM RD_FON
  9. \OVER 0,A,32,20\LOC 658,732
  10. \IF SOUND_TOGGLE='1'\MOVE '2' TO SOUND_TOGGLE\ELSE\IF SOUND_TOGGLE='2'\MOVE '1' TO SOUND_TOGGLE\ENDIF
  11. \IF SOUND_CONTROL<>'ON'
  12. \ELSE\DISPLAY '     PLAYING: ',SOUND,'.VOC ' 
  13. \BUILD #2050=SOUND_PROGRAM,SOUND_STOPCOMMAND
  14. \CURSOR 8,2\EXEC >(#2050)
  15. \IF A=-1\MOVE 'FAILED' TO SOUND_CONTROL\MOVE ' MEMORY' TO SOUND_FAILURE
  16. \LINE 658,732,1023,768,1,BF
  17. \OVER 0,A,42,20\LOCATE 658,732\DISPLAY 'SOUND ERROR:',SOUND_FAILURE,'!'\WAIT NOW ONE_SECOND*5
  18. \ELSE\BUILD #2050=SOUND_PROGRAM,SOUND_LOADCOMMAND,SOUND_TOGGLE,',',SOUND_DRIVE,SOUND_PATH,SOUND,SOUND_EXTENSION 
  19. \CURSOR 8,2\EXEC >(#2050)
  20. \IF A=-1\MOVE 'FAILED' TO SOUND_CONTROL\MOVE ' LOAD' TO SOUND_FAILURE
  21. \LINE 658,732,1023,768,1,BF
  22. \OVER 0,A,42,20\LOC 658,732\DISPLAY 'SOUND ERROR:',SOUND_FAILURE,'!'\WAIT NOW ONE_SECOND*5
  23. \ELSE
  24. \BUILD #2050=SOUND_PROGRAM,SOUND_OUTCOMMAND,SOUND_TOGGLE
  25. \CURSOR 8,2\EXEC >(#2050)
  26. \IF A=-1\MOVE 'FAILED' TO SOUND_CONTROL\MOVE ' PLAY' TO SOUND_FAILURE
  27. \LINE 658,730,1024,768,1,BF
  28. \OVER 0,A,42,20\LOC 658,732\DISPLAY 'SOUND ERROR:',SOUND_FAILURE,'!'\WAIT NOW ONE_SECOND*5
  29. \ENDIF\RETURN
  30. \X SET_ERROR_ONKEYS\ON ERROR CALLM ERROR_HANDLER\RETURN
  31. \X ERROR_HANDLER\ERROR ?\MOVE A TO LAST_ERROR\MOVE LAST_ERROR TO ERR_DSPL\CONVERT ERR_DSPL
  32. \BEEP 11,80\BEEP 8,40\MOVE '162019PW' TO FONT_FLNM\CALLM RD_FON\OVER 0,A,40,20\WID 370 DOT C
  33. \LOCATE 28,732\DISPLAY "ERROR #:",ERR_DSPL[2,5],'  '
  34. \LOCATE 192,732\BEEP 12,300\IF EMM_AVBL<288\IF EMM_AVBL>0
  35. Not enough EXPANDED memory!
  36. \ELSE
  37. No EXPANDED memory available!
  38. \ELSE\IF A=11 OR A=12\BEEP 9,400
  39. Error reading/using a file.
  40. \ELSE
  41. File may be damaged.
  42. \ENDIF\WAIT NOW ONE_SECOND\CALLM SET_ERROR_ONKEYS\RETURN
  43. \X SUB_HEAD\MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  44. \MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 15 TO U\LINE Q,R,S,T,21,BF\CALLM TUBE_BOX
  45. \LOC 50,61\WID 924 DOT C\OVER 1,A,V,21\RETURN
  46. \X SETUP_TXT\MOVE '182019PW' TO FONT_FLNM\CALLM RD_FON
  47. \LOC 50,190\WID 526 DOT\OVER 1,A,V,23\HEI 600
  48. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\CALLM NEW_TUBE_BOX
  49. \RETURN
  50. \X WAITBOX\MOVE 580 TO Q\MOVE 730 TO R\MOVE 980 TO S\MOVE 755 TO T\MOVE 15 TO U\MOVE 23 TO TUBE_COLORS\CALLM TUBE_BOX
  51. \LOC 580,730\MOVE '182019PW' TO FONT_FLNM\CALLM RD_FON\OVER 0,A,43,24\WID 400 DOT
  52.  Press <ENTER> to continue...
  53. \RETURN
  54. \X WAITOFF\LOC 581,731\MOVE '182019PW' TO FONT_FLNM\CALLM RD_FON\OVER 0,A,43,24\WID 400 DOT
  55.  Press <ENTER> to continue...
  56. \MOVE 580 TO Q\MOVE 730 TO R\MOVE 980 TO S\MOVE 755 TO T\MOVE 15 TO U\CALLM INDENTED_BOX\WAIT NOW 1
  57. \LOC 582,732\MOVE '182019PW' TO FONT_FLNM\CALLM RD_FON\OVER 0,A,43,24\WID 400 DOTS 
  58.  Press <ENTER> to continue...
  59. \LINE 0,721,570,768,1,BF\RETURN
  60. \X WAITRET\MOVE 0 TO B ;ALSO EXITS ON SPACE BAR, <f10>.
  61. \CALLM WAITBOX
  62. \X WAITB\IF B<>7181 AND B<>14624 AND B<>17408\JUMP WAITB\ENDIF
  63. \CALLM WAITOFF\RETURN
  64. \X DEMO_MSG\ON KEY PG_UP\ON KEY PG_DN\ON KEY 7181
  65. \MOVE 300 TO Q\MOVE 300 TO R\MOVE 700 TO S\MOVE 503 TO T\MOVE 15 TO U\MOVE 23 TO TUBE_COLORS\CALLM TUBE_BOX
  66. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  67. \LOC 300,300\WID 400 DOT C\OVER 1,A,40,23
  68. \"
  69. The next option is not available in the demo.  To order the full program, please press:
  70. Function Key <F2>.
  71. \"
  72. \CALLM WAITBOX\ON KEY F2 CALLM PRINT_ORDER\MOVE 0 TO B
  73. \X WAITC\IF B<>7181 AND B<>14624 AND B<>17408 AND B<>15360\JUMP WAITC\ENDIF
  74. \ON KEY F2\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  75. \X SPACE_TUBE
  76. \MOVE 30 TO Q\MOVE 730 TO R\MOVE 520 TO S\MOVE 755 TO T\MOVE 15 TO U\MOVE 23 TO TUBE_COLORS\CALLM TUBE_BOX
  77. \LOC 30,730\WID 490 DOT C
  78. Press <SPACE BAR> to animate again...
  79. \RETURN
  80. \X SPACE_OUT\LOC 31,731\WID 490 DOT C
  81. Press <SPACE BAR> to animate again...
  82. \MOVE 30 TO Q\MOVE 730 TO R\MOVE 520 TO S\MOVE 755 TO T\MOVE 15 TO U\CALLM INDENTED_BOX\WAIT NOW 1
  83. \LOC 32,732\WID 490 DOT C
  84. Press <SPACE BAR> to animate again...
  85. \RETURN
  86. \X TOP_INFOBOX\MOVE '202519PW' TO FONT_FLNM\CALLM RD_FON
  87. \MOVE 260 TO Q\MOVE 20 TO R\MOVE 760 TO S\MOVE 70 TO T\MOVE 15 TO U
  88. \LOC Q,R\WID S-Q DOT C\OVER 0,A,41,33\HEI 480\CALLM TUBE_BOX\RETURN
  89. \X RD_PIC\IF LAST_PICFL<>PIC_FLNM\CLEAR PICS\MOVE 0 TO LAST_ERROR\CLEAR SHOW\CLEAR SPRITES\BUILD #2010=PICTURE_PATH\BUILD #2011=PIC_FLNM,'.PIC'\+
  90. \MOVE PICTURE_DRIVE TO #999\READ (#999):/(#2010)/(#2011)\ENDIF\MOVE PIC_FLNM TO LAST_PICFL\RETURN
  91. \X RD_FON\BUILD #2010=FONT_PATH\BUILD #2011=FONT_FLNM,'.FON'
  92. \MOVE FONT_DRIVE TO #999\READ (#999):/(#2010)/(#2011)\RETURN
  93. \X RD_HUE\BUILD #2010=HUE_PATH\BUILD #2011=HUE_FLNM,'.HUE'
  94. \MOVE HUE_DRIVE TO #999\READ (#999):/(#2010)/(#2011)\RETURN
  95. \X RD_TXT\BUILD #2010=TEXT_PATH\BUILD #2011=TEXT_FLNM,'.TXT'
  96. \MOVE TEXT_DRIVE TO #999\READ (#999):/(#2010)/(#2011)
  97. \MOVE 'PUMPMENU.TXT TO #2011\READ (#999):/(#2010)/(#2011)
  98. \X OPEN_VID\BUILD #2010=VIDEO_PATH\BUILD #2011=VIDEO_FLNM,'.PIC'
  99. \MOVE VIDEO_DRIVE TO X\OPEN (#999):/(#2010)/(#2011)\RETURN
  100. \END
  101.